﻿
Imports System.Timers

Public Class timerpool
    Inherits icomponentPool(Of Timer)

    Protected Overrides Sub eraseImpl(ByRef inst As Timer)
        inst.Close()
    End Sub

    Protected Overrides Sub freeImpl(ByVal inst As Timer)
        inst.Stop()
    End Sub

    Protected Overrides Function createImpl() As Timer
        Return New Timer()
    End Function

    Protected Overrides Sub inspect(ByVal inst As Timer)
        Dim i As Int32 = 0
        i = inst.Interval()
    End Sub
End Class
